home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / form.ged < prev    next >
Encoding:
Text File  |  1996-01-19  |  14.6 KB  |  383 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'QUERY DOC VAR=DOC'
  20.  
  21. 'FIX VAR=DOC'
  22.  
  23. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  24.  
  25. 'NAME NEW=' || RESULT
  26.  
  27. if ((RC = 0) & (RESULT ~= 0)) then do
  28.  
  29.     'REQUEST STRING TITLE="Form Wizard" BODY="CGI script that will handle form input" OLD="http://" VAR=URL'
  30.  
  31.     if (RC = 0) then do
  32.  
  33.         'REQUEST TITLE="Form Wizard" BODY="Method used to send data to server:" BUTTON="!POST|GET|_Cancel" VAR=METHOD'
  34.  
  35.         if ((RC = 0) & (RESULT ~= 0)) then do
  36.  
  37.             'REQUEST STRING TITLE="Form Wizard" BODY="Label of the submit button" OLD="Submit" VAR=SUBMIT'
  38.  
  39.             if (RC = 0) then do
  40.  
  41.                 'REQUEST STRING TITLE="Form Wizard" BODY="Label of the reset button" OLD="Reset" VAR=RESET'
  42.  
  43.             if (RC = 0) then do
  44.  
  45.                 'FIX VAR=URL'
  46.                 'FIX VAR=RESET'
  47.                 'FIX VAR=SUBMIT'
  48.  
  49.                 'INSERT LINE'
  50.                 'INSERT LINE'
  51.                 'DOWN'
  52.  
  53.                 if (METHOD = 1) then
  54.                     'TEXT STAY T="<FORM ACTION=*"' || URL || '*" METHOD=POST>"'
  55.                 else
  56.                     'TEXT STAY T="<FORM ACTION=*"' || URL || '*" METHOD=GET>"'
  57.  
  58.                 'DOWN'
  59.                 'INSERT LINE'
  60.  
  61.                 'PING SLOT=0'
  62.  
  63.                 'TEXT STAY T="</FORM>"'
  64.                 'INSERT LINE'
  65.                 'DOWN'
  66.                 'INSERT LINE'
  67.                 'TEXT STAY T="<P>"'
  68.                 'DOWN'
  69.                 'INSERT LINE'
  70.                 'TEXT STAY T="<INPUT TYPE=RESET  VALUE=*"' || RESET || '*">"'
  71.                 'DOWN'
  72.                 'INSERT LINE'
  73.                 'TEXT STAY T="<INPUT TYPE=SUBMIT VALUE=*"' || SUBMIT || '*">"'
  74.                 'DOWN'
  75.                 'INSERT LINE'
  76.  
  77.                 'PONG SLOT=0'
  78.  
  79.                 ID = 1;
  80.  
  81.                 do forever
  82.  
  83.                     'REQUEST TITLE="Form Wizard" BODY="Select element to be added to the form" BUTTON="!STRING|_Password|_Textarea|_Radio|_List|Check_box|_Done" VAR=TYPE'
  84.  
  85.                     if ((RC ~= 0) | (RESULT = 0)) then
  86.                         break
  87.  
  88.                     if (RC = 0) then do
  89.  
  90.                         /* string field */
  91.  
  92.                         if (TYPE = 1) then do
  93.  
  94.                             'REQUEST LONG TITLE="Form Wizard" BODY="Number of characters that can be written to the field" MIN=1 MAX=255 OLD=40 VAR=MAXLEN'
  95.  
  96.                             if (RC = 0) then do
  97.  
  98.                                 'REQUEST STRING TITLE="Form Wizard" BODY="Set field''s default value" VAR=VALUE MAX=' || MAXLEN
  99.  
  100.                                 if (RC = 0) then do
  101.  
  102.                                     'REQUEST STRING TITLE="Form Wizard" BODY="Field description (if any)" VAR=COMMENT'
  103.  
  104.                                     if (RC = 0) then do
  105.  
  106.                                         'REQUEST LONG TITLE="Form Wizard" BODY="Field size (units are characters)" MIN=1 MAX=255 OLD=40 VAR=SIZE'
  107.  
  108.                                         if (RC = 0) then do
  109.  
  110.                                             'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  111.  
  112.                                             if (RC = 0) then do
  113.  
  114.                                                 'FIX VAR=VALUE'
  115.                                                 'FIX VAR=COMMENT'
  116.                                                 'FIX VAR=IDCODE'
  117.  
  118.                                                 'INSERT LINE'
  119.                                                 'INSERT LINE'
  120.                                                 'INSERT LINE'
  121.                                                 'DOWN'
  122.                                                 'TEXT STAY T="<P>"'
  123.                                                 'DOWN'
  124.                                                 'TEXT STAY T="<INPUT TYPE=text NAME=*"' || IDCODE || '*" VALUE=*"' || VALUE || '*" MAXLENGTH=' || MAXLEN || ' SIZE=' || SIZE || '> ' || COMMENT || '"'
  125.                                                 'DOWN'
  126.  
  127.                                                 ID = ID + 1
  128.                                             end
  129.                                         end
  130.                                     end
  131.                                 end
  132.                             end
  133.                         end
  134.  
  135.                         /* password */
  136.  
  137.                         if (TYPE = 2) then do
  138.  
  139.                             'REQUEST LONG TITLE="Form Wizard" BODY="Number of characters that can be written to the field" MIN=1 MAX=255 OLD=40 VAR=MAXLEN'
  140.  
  141.                             if (RC = 0) then do
  142.  
  143.                                 'REQUEST STRING TITLE="Form Wizard" BODY="Set field''s default value" VAR=VALUE MAX=' || MAXLEN
  144.  
  145.                                 if (RC = 0) then do
  146.  
  147.                                     'REQUEST STRING TITLE="Form Wizard" BODY="Field description (if any)" OLD="Password" VAR=COMMENT'
  148.  
  149.                                     if (RC = 0) then do
  150.  
  151.                                         'REQUEST LONG TITLE="Form Wizard" BODY="Field size (units are characters)" MIN=1 MAX=255 OLD=40 VAR=SIZE'
  152.  
  153.                                         if (RC = 0) then do
  154.  
  155.                                             'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  156.  
  157.                                             if (RC = 0) then do
  158.  
  159.                                                 'FIX VAR=VALUE'
  160.                                                 'FIX VAR=COMMENT'
  161.                                                 'FIX VAR=IDCODE'
  162.  
  163.                                                 'INSERT LINE'
  164.                                                 'INSERT LINE'
  165.                                                 'INSERT LINE'
  166.                                                 'DOWN'
  167.                                                 'TEXT STAY T="<P>"'
  168.                                                 'DOWN'
  169.                                                 'TEXT STAY T="<INPUT TYPE=password NAME=*"' || IDCODE || '*" VALUE=*"' || VALUE || '*" MAXLENGTH=' || MAXLEN || ' SIZE=' || SIZE || '> ' || COMMENT || '"'
  170.                                                 'DOWN'
  171.  
  172.                                                 ID = ID + 1
  173.                                             end
  174.                                         end
  175.                                     end
  176.                                 end
  177.                             end
  178.                         end
  179.  
  180.                         /* textarea */
  181.  
  182.                         if (TYPE = 3) then do
  183.  
  184.                             'REQUEST LONG TITLE="Form Wizard" BODY="Number of columns" MIN=1 MAX=255 OLD=40 VAR=COLUMNS'
  185.  
  186.                             if (RC = 0) then do
  187.  
  188.                                 'REQUEST LONG TITLE="Form Wizard" BODY="Number of rows" MIN=1 MAX=255 OLD=10 VAR=ROWS'
  189.  
  190.                                 if (RC = 0) then do
  191.  
  192.                                     'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  193.  
  194.                                     if (RC = 0) then do
  195.  
  196.                                         'FIX VAR=IDCODE'
  197.  
  198.                                         'INSERT LINE'
  199.                                         'INSERT LINE'
  200.                                         'DOWN'
  201.                                         'TEXT STAY T="<P>"'
  202.                                         'DOWN'
  203.                                         'TEXT STAY T="<TEXTAREA NAME=*"' || IDCODE || '*" ROWS=' || ROWS || ' COLS=' || COLUMNS || '></TEXTAREA>"'
  204.                                         'DOWN'
  205.                                         'INSERT LINE'
  206.  
  207.                                         ID = ID + 1
  208.                                     end
  209.                                 end
  210.                             end
  211.                         end
  212.  
  213.                         /* radio */
  214.  
  215.                         if (TYPE = 4) then do
  216.  
  217.                             'REQUEST LONG TITLE="Form Wizard" BODY="Number of radio buttons" MIN=2 MAX=255 OLD=2 VAR=OPTIONS'
  218.  
  219.                             if (RC = 0) then do
  220.  
  221.                                 'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  222.  
  223.                                 if (RC = 0) then do
  224.  
  225.                                     'FIX VAR=IDCODE'
  226.  
  227.                                     'INSERT LINE'
  228.                                     'INSERT LINE'
  229.                                     'DOWN'
  230.                                     'TEXT STAY T="<P>"'
  231.                                     'DOWN'
  232.  
  233.                                     do OPTION = 1 to OPTIONS
  234.  
  235.                                         if (OPTION = OPTIONS) then
  236.                                             'TEXT STAY T="<INPUT TYPE=radio NAME=*"' || IDCODE || '*" VALUE=*"radio button ' || OPTION || '*"> radio button"'
  237.                                         else
  238.                                             'TEXT STAY T="<INPUT TYPE=radio NAME=*"' || IDCODE || '*" VALUE=*"radio button ' || OPTION || '*"> radio button<BR>"'
  239.  
  240.                                         'DOWN'
  241.                                         'INSERT LINE'
  242.                                     end
  243.  
  244.                                     ID = ID + 1
  245.                                 end
  246.                             end
  247.                         end
  248.  
  249.                         /* list */
  250.  
  251.                         if (TYPE = 5) then do
  252.  
  253.                             'REQUEST LONG TITLE="Form Wizard" BODY="Number of list items" MIN=2 MAX=255 OLD=2 VAR=OPTIONS'
  254.  
  255.                             if (RC = 0) then do
  256.  
  257.                                 'REQUEST TITLE="Form Wizard" BODY="Allow multiple selections ?" BUTTON="!Single|_Multiple|_Cancel" VAR=MULTIPLE'
  258.  
  259.                                 if ((RC = 0) & (MULTIPLE ~= 0)) then do
  260.  
  261.                                     'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  262.  
  263.                                     if (RC = 0) then do
  264.  
  265.                                         'FIX VAR=IDCODE'
  266.  
  267.                                         'INSERT LINE'
  268.                                         'INSERT LINE'
  269.                                         'INSERT LINE'
  270.                                         'DOWN'
  271.                                         'TEXT STAY T="<P>"'
  272.                                         'DOWN'
  273.  
  274.                                         if (MULTIPLE = 1) then
  275.                                             'TEXT STAY T="<SELECT NAME=*"' || IDCODE || '*">"'
  276.                                         else
  277.                                             'TEXT STAY T="<SELECT NAME=*"' || IDCODE || '*" MULTIPLE>"'
  278.  
  279.                                         'DOWN'
  280.                                         'INSERT LINE'
  281.                                         'TEXT STAY T="</SELECT>"'
  282.  
  283.                                         do OPTION = 1 to OPTIONS
  284.  
  285.                                             'INSERT LINE'
  286.                                             'TEXT STAY T="<OPTION>' || 'item' || '</OPTION>"'
  287.                                             'DOWN'
  288.                                         end
  289.  
  290.                                         'DOWN'
  291.  
  292.                                         ID = ID + 1
  293.                                     end
  294.                                 end
  295.                             end
  296.                         end
  297.  
  298.                         /* checkbox */
  299.  
  300.                         if (TYPE = 6) then do
  301.  
  302.                             'REQUEST TITLE="Form Wizard" BODY="Set field''s default value" BUTTON="!NORMAL|Checke_d" VAR=CHECKED'
  303.  
  304.                             if (RC = 0) then do
  305.  
  306.                                 'REQUEST STRING TITLE="Form Wizard" BODY="Field description (if any)" VAR=COMMENT'
  307.  
  308.                                 if (RC = 0) then do
  309.  
  310.                                     'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  311.  
  312.                                     if (RC = 0) then do
  313.  
  314.                                         'FIX VAR=COMMENT'
  315.                                         'FIX VAR=IDCODE'
  316.  
  317.                                         'INSERT LINE'
  318.                                         'INSERT LINE'
  319.                                         'INSERT LINE'
  320.                                         'DOWN'
  321.                                         'TEXT STAY T="<P>"'
  322.                                         'DOWN'
  323.  
  324.                                         if (CHECKED = 0) then
  325.                                             'TEXT STAY T="<INPUT TYPE=checkbox NAME=*"' || IDCODE || '*" CHECKED> ' || COMMENT || '"'
  326.                                         else
  327.                                             'TEXT STAY T="<INPUT TYPE=checkbox NAME=*"' || IDCODE || '*"> ' || COMMENT || '"'
  328.  
  329.                                         'DOWN'
  330.  
  331.                                         ID = ID + 1
  332.                                     end
  333.                                 end
  334.                             end
  335.                         end
  336.  
  337.                         /* hidden */
  338.  
  339.                         if (TYPE = 7) then do
  340.  
  341.                             'REQUEST STRING TITLE="Form Wizard" BODY="Select value of hidden field" VAR=VALUE'
  342.  
  343.                             if (RC = 0) then do
  344.  
  345.                                 'REQUEST STRING TITLE="Form Wizard" BODY="Select field''s ID code" OLD="FIELD' || ID || '" VAR=IDCODE'
  346.  
  347.                                 if (RC = 0) then do
  348.  
  349.                                     'FIX VAR=VALUE'
  350.                                     'FIX VAR=IDCODE'
  351.  
  352.                                     'INSERT LINE'
  353.                                     'INSERT LINE'
  354.                                     'DOWN'
  355.                                     'TEXT STAY T="<INPUT TYPE=hidden NAME=*"' || IDCODE || '*" VALUE=*"' || VALUE || '*">"'
  356.                                     'DOWN'
  357.                                 end
  358.  
  359.                                 ID = ID + 1
  360.                             end
  361.                         end
  362.                     end
  363.                 end
  364.             end
  365.         end
  366.     end
  367. end
  368.  
  369.  
  370. /* ---------------------------- END OF YOUR CODE --------------------- */
  371.  
  372. 'UNLOCK' /* VERY important: unlock GUI */
  373.  
  374. exit
  375.  
  376. SYNTAX:
  377.  
  378. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  379.  
  380. 'UNLOCK'
  381.  
  382. exit
  383.